home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / rlog110.zip / RUNFIRST.BAS < prev   
Encoding:
BASIC Source File  |  1990-05-23  |  1.5 KB  |  34 lines
  1. 10 DIM Areas(200), Aline(200), ScanAmt(10)
  2. 20 CLS
  3. 30 PRINT "REMOTLOG, By-Orland K. Carter, 1:135/72 Ver 1.10 05-90"
  4. 40 PRINT
  5. 50 PRINT "Updating Old Data file to New Data File"
  6. 60 PRINT
  7. 70 OPEN "I", 3, "REMOTLOG.DAT"
  8. 80 FOR A1 = 1 TO 200
  9. 90      LINE INPUT #3, LogLine$: Areas(A1) = VAL(LogLine$)
  10. 100 NEXT A1
  11. 110 FOR A1 = 1 TO 99
  12. 120      LINE INPUT #3, LogLine$: Aline(A1) = VAL(LogLine$)
  13. 130 NEXT A1
  14. 140 INPUT #3, BeginDate$, DOSSHELL, baud0, baud300, baud1200, baud2400, BAUD4800, baud9600, zmodemd, ymodemd, sealinkd, xmodemd, zmodemu, ymodemu, sealinku, xmodemu, Mlocal, Echos, NetMail, incorrectpwd, droppedcarrier, NONAME, chatted, noresponse,  _
  15. outsidepage, toomany, ExtChat, logoff, newuser, dwn, up, MAXPWD, DELETED, timeout, timelimit, defficient, dkbytes, dcps
  16. 150 CLOSE 3
  17. 160 OPEN "O", 3, "REMOTLOG.DAT"
  18. 170 FOR A1 = 1 TO 200
  19. 180      PRINT #3, Areas(A1)
  20. 190 NEXT A1
  21. 200 FOR A1 = 1 TO 99
  22. 210      PRINT #3, Aline(A1)
  23. 220 NEXT A1
  24. 230 FOR A1 = 0 TO 10
  25. 240      PRINT #3, ScanAmt(A1)
  26. 250 NEXT A1
  27. 260 WRITE #3, BeginDate$, DOSSHELL, baud0, baud300, baud1200, baud2400, BAUD4800, baud9600, zmodemd, ymodemd, sealinkd, xmodemd, zmodemu, ymodemu, sealinku, xmodemu, Mlocal, Echos, NetMail, incorrectpwd, droppedcarrier, NONAME, chatted, noresponse,  _
  28. outsidepage, toomany, ExtChat, logoff, newuser, dwn, up, MAXPWD, DELETED, timeout, timelimit, defficient, dkbytes, dcps
  29. 270 CLOSE 3
  30. 280 PRINT
  31. 290 PRINT "Update complete.  Please Delete RunFirst at this time it does nothing more."
  32. 300 END
  33.  
  34.